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Brits *EDTSSCRNEWINS = insert a Line on the screen 
DULE EDTSSCRNEWINS ! a line on the scr 

jDENT = *'v04-000' ! File: SCRNEWINS. BI Edit: J8S1023 
BEGIN 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYHARD. MASSACHUSETTS. 


!# ALL RIGHTS RESERVED. 


t® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
te COPIES THEREOF a NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
t# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
® 
* 
* 
* 
x 
* 
* 
* 
* 

'® TRANSFERRED. * 
* 
* 
* 
® 
* 
* 
* 
+ 
* 
* 
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i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: OORPORAT bn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

it 
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FACILITY: EDT -- The DEC Standard Editor 
i ABSTRACT: 


This module updates the screen information data structure to 
reflect the insertion of a Line. 


i ENVIRONMENT: Runs at any access mode - AST reentrant 
i AUTHOR: Sharon M. Burlingame, CREATION DATE: September 15, 1982 
i MODIFIED BY: 


Original. SMB 15-Sep-1982. 
Remove the gos ition PesanecR and assume EOB is Last Line. SMB 06-Oct-1982 
Remove setting of EDTSSA_SCR_PTR. SMB ares ry b 
Add support For NOTR RUNCATE ndde. Jes Ve efi 
Return the number of lines produced. 14x) ee og2 
ix afr bu “found by a - systeg. in ting it 9 Ge coleted Line. JBS 12-0ct-198 
n 


oooo 
Oooo 
WAANw 


jo m0 Enoge r_the bl ines after the first. JBS + >-0¢t-1982 
Fix call . ‘bot Fat. “CHWID. 008s ~i3-Oet=t 
sane? 2 bpgation on counter. tbe 
Uhen deleting | meet {rom the screen data cone chet complete, records. JBS 23-Oct-1982 
if we cotete ne +508) ine ee the screen data base, clear the E08 pointer, JBS 2 Py ad ee 1 
oy up to f mes be number of Lines on the screen of screen data block ; JBS 24-0ct-1982 
feos can only. a inserted at the end of the screen data base. JBS 24-Oct-1982 
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NS.BLI; (1) 


ERY SSERNEWINS EDTSSCRNEWINS = insert a Line on the screen 1b-50 £07138 91:38:16 ite mabe givgcocye Page as 


; H | jz “014 - Ferrect § the gode, thes uses the earliest deleted line. JBS q -Oct- 1982 

3 - haint afr nee “byt ain F gode thas Ce tee or the oerliese eleted Line. JBS 28-0ct-1982 
3 7 wt 4 cr a4 aL NPO sis" 28 

3 1 1 i- = free a line blo JBS 29-0ct- wt 

3 66 1 | 1-018 - tl My See etets 2 hel abereatane’t ng rts. 3 -Dec-1982 

> © 1 | 1-019 = Change the handling of EDTS$G_SHF. JBS 14-Dec-1198 

; 664 1/1. - Fix tabbing at end of Line in” notruncate mode. JBS 15-Dec-1982 

; 65 1 1- = Remove the edit buffer. JBS 27-Dec- 

$ 68 11 1. - Set the rebutie Ae | if we delete the cursor line. JBS 03-Jan-1983 

is 0067 1! 17058 - Always use a ful ze screen data base, so ug won't lose any Lines from the current record 
3 63 Oo¢9 ! a even if it is 85 Lines long. JBS 14-Jul-198 

; 70 0 1 


EDTSSCRNEWINS 
a: 
78 
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EDTSSCRNEWINS - insert a Line on the screen 19~3e07 1386 91:38:16 AX-11 Bliss-32 V4.0-74 Page 3 
Declarations 14-Sep-1984 724: EDT. SRCISCRNEWINS.BLI; (2) 
re } SSBTTL ‘Declarations’ 
f 1 ! TABLE OF CONTENTS: 
eh 
1g : REQUIRE ‘EDTSRC: TRAROUNAM'; 
1 1 FORWARD ROUTINE 
i on EDTSSSC_LNINS; 
a5 | 
19 1! 
Y } INCLUDE FILES: 
1 
05 ; : REQUIRE ‘EDTSRC:EDTREQ'; 
659 1! 
660 1 ! MACROS: 
661 1! 
pees 1! NONE 
06635 1! 
0664 1 ! EQUATED SYMBOLS: 
0665 1! 
0666 1 
0667 1 LITERAL 
+984 : MAX_SCREEN_LINES = 2285; ! Enough for 5 screens, so we can compute the number of Lines above and belo 
670 1! 
367) 1 ! OWN STORAGE: 
Ie 1! 
0675 1! NONE 
0674 1! 
0675 1 ! EXTERNAL REFERENCES: 
0676 1! 
0677 1! In the routine 
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EDTSSCRNEWINS EDTSSCRNEW 0- 
1042000 ED TESS -LNINS = insert a Line on the screen -Sep-1 EDT.SR RNEWINS.BL 
; % 


q SBTTL ‘EDTSSSC_LNINS = insert a Line on the screen’ 
GLOBAL ROUTINE EDTSSSC_LNINS ( ! Insert a Line on the screen 
SCRPTR ' Location above which to insert 
REC_ADOR, i Address of new Line 
REC_LEN ! Length of new Line 
= 


FUNCTIONAL DESCRIPTION: 
by" tngicattng thet the Lins ca¥ neea' fob repsinteds Gee memory 
from heap storage or the pool of available storage as needed. 

FORMAL PARAMETERS: 

SCRPTR insert the new Line(s) just before this Line 

REC_ADDR the address of the new record 

REC_LEN the Length of the new record 

IMPLICIT INPUTS: 
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NONE 
SIDE EFFECTS: 
NONE 
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EDTSSCRNEWINS EDTSSCRNEWINS - insert a Line on the screen 16-Sep-1984 01:38: AX-11 Bliss-32 V4.0-74 Page 5 

+ - insert a Line on the screen -Sep- 224: . -BLI; 
$0420 EDTSese LNINS i ta li th 14*$ 1384 9} 3 if ah SRCISCRNEVINS BLI ; (3) 
H 16) q 5 BEGIN ; 
: 18 7 $ EXTERN, ROUTINE ‘ 
; 168 7 3 EDTSSFMT_MSG : NOVALUE, ! Print a message : 
3 19? 7 EDTSSALO_HEAP ! Allocate heap storage ‘ 
: 170 740 EDISSEAT CHW16, i Compute the width of a character ; 
; 12) rl EDTSSSC_CNDEL : NOVALUE; ' Free a Line from the screen data base : 
; 178 28 ExTERNA, ‘ 
; 174 744 EDTSSG_MEM_CNT, ! Memory allocation count ‘ 
; 175 745 EDTSSA_FST_AVLN : REF SCREEN_LINE, ! List of free screen lines ‘ 
; 176 res ED ISSA UK CN : REF LIN_BLOCK? ' Address of current workfile Line : 
; 7 74 EDT$$Z_E08_LN ' Address o " 
; «(178 748 EDTS$A_CUR—BUF : REF TBCB_BLOCK, ! Current text buffer control block ‘ 
: 179 749 EDTSSA_EOB_SCRPTR : REF SCREEN_LINE, ! Pointer to EOB screen Line ; 
; 180 750 EDTSSA_FST_SCRPTR : REF SCREEN_LINE, ! Pointer to first screen Line info ‘ 
3 18) 751 EDTSSA_LST_SCRPTR : REF SCREEN_LINE, ! Pointer to last screen Line info : 
3 ite 07 ¢ EDTSSA_CUR_SCRPTR : REF SCREEN_LINE, ! Pointer to the current screen Line : 
; 18 oe EDTS$G_TRUN, ! 1 = truncate mode : 
: 184 tee EDTSSG_SHF, ! Screen shift amount : 
; «(185 0755 EDTS$G_TI_WID ! Width of the terminal : 
> 186 0796 EDTSSA_CSR_SCRPTR : REF SCREEN_LINE, | Current cursor line screen info : 
s ter 075 EDTSSL_CUR_SCRLN : LN_BLOCK, ! Absolute record number of that Line ; 
; 188 0758 EDTSSL_LNO_EMPTY : LN_BLOCK, ! Special value for ‘‘empty’’ Line number ‘ 
3 + a4 3534 EDT$$G_SCR_REBUILD; ! 1 = rebuild the screen data base from the work file : 
; 6191 b5e3 MESSAGES ((INSMEM)); ‘ 
: 138 768 MAP 
: 194 opee SCRPTR : REF SCREEN_LINE; : 
Me BEE voc ; 
; 197 0767 EDIT_CODE ! Repaint or insert ; 
; 198 0768 NEW SCRPTR : REF SCREEN LINE i Address of new Line info ; 
; 199 0769 PREQ_SCRPTR : REF SCREEN_LINE, i Address of previous Line info ; 
: 200 770 INDX, ! Index for inserting multiple Lines 3 
3; 201 771 NEED_ANOTHER_LINE, ! 1 = another Line needed for this record : 
; 202 ue LEFT ' Left character position for this Line : 
3 03 77 RIGHT, ! Right character position for this Line : 
3 $e 0774 CHAR, 3 
A 5 0775 TXT, : 
: $09 1 CEN: 
; 4 ve NEW_ADDR; : 
: $10 rao 5 1 
3 12 g ; ; Make sure the counter agrees with the data base. ; 
; 1 7 : 
: 216 784 IF 0 
3 1? 5 THEN 
; SH , IF _(.EDTS$A_FST_SCRPTR EQLA 0) 
; 19 ‘ § ASSERT (.EDTSS$G_MEM_CNT EQL 0) 
; $f 791 BEGIN 
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EQTESCRNEWINS 


COUNT 
SCRPTR1 : REF SCREEN 
SCRPTR2 : REF SCREEN 
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COUNT = 0; 

SCRPTR1 = .EDTSSA_FST_SCRPTR; 

ASSERT (.SCRPTR1 CSCRTPRV_LINE) EQL 0); 
i) 


IA WAIWIPonorororororeorny) 


wr 


= .COUNT + 1; 
2 = .SCRPTRI; 

1 = .SCRPTR1 CSCR_NXT_LINE); 
.SCRPTR1 NEQA 0) 


ASSERT (.SCRPTR2 EQLA .EDTSSA_LST_SCRPTR); 
ASSERT (.COUNT EQL -EDT$$G_MEM_CNT); 
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$¢ 

4 

24 
5 
$3 INDX = 0; ! Start with first Line : 
25 NEED_ANOTHER_LINE = 1; ! Always need at least one Line 
$2 LEFT = 0; ! Start the first Line at position 0 
$2 WHILE (.NEED_ANOTHER_LINE AND (.INDX LEQ 255)) DO 
$2 $ ma BEGIN 
$2 8 i If we are inserting before a line, look for deleted Lines; use the earliest 

5 9 ! one found. 
i far 
6 § If (.SCRPTR NEQA 0) 
26 THEN 
4 BEGIN 

65 5 NEW_SCRPTR = .SCRPTR CSCR_PRV_LINE); 

69 $ IF (.NEW_SCRPTR NEQA 0) 

68 8 THEN ’ 
44 iB BEGIN 

71 41 IF ((.NEW_SCRPTR CSCR_EDIT_FLAGS] AND SCR_EDIT_DELLN) NEQ 0) 

7 eee THEN 

7 BEGIN 

74 4 

75 5 LOCAL 

, #6 FOUND_EARLIEST; 

78 0848 FOUND_EARLIEST = 0; 


6 
Soueboo NS EDTEESCMENINS ~~ Tatertee (ine on the screen 1$-$e0-1 964 Ee am CMa ttc tat Ce Te 
; WHILE ( NOT .FOUNDEARLIEST) 00 
SSCRPTR = .NEW.SCRPTR CSCR_PRV_LINE); 
.PREV_SCRPTR EQLA 0) 
FOUND EARLIEST = 1 
BEGIN 
IF (C.PREVSCRPTR CSCREDIT FLAGS] AND SCRLEDIT.DELLN) NEQ 0) 
NEW.SCRPTR = .PREV_SCRPTR 
FOUND_EARLIEST = 1; 


uM 


Wn 
NOUS WTO” 


mn 2aan Clue 


ELS 


END; 
END; 
EDIT_CODE = SCR_EDIT_MODIFY; 


ELSE 
NEW_SCRPTR = 0; 


tots 
Sou Wr 
PEE PUTA AAD. Ie I BI BBB EE EME MME BE MNTIA AAA IID 0D 09 0D COD ODO ES OO INNO OO 


~~~ 
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GIN 
ED1$G_SCR REBUILD = 1; 
EDTSSFAT_MSG (EDTS_INSMEM); 
RETURN (0); 


NEW_SCRPTR = .NEW_ADDR; 


ELSE 
BEGIN 
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05 
$9 END 
08 LSE 
+4 NEW_SCRPTR = 0; 
11 IF (.NEW_SCRPTR EQLA 0) 
\§ THEN 
1 BEGIN 
\ ~ EDTSSG_MEM_CNT = .EDTSSG_MEM_CNT + 1; ! Incremented each time entered 
1g i Unless there is available memory, get some from heap storage for the 
18 : new screen Line information buffer. 
; } 
0 IF (.EDTSSA_FST_AVLN EQLA 0) 
1 THEN 
§ BEGIN 
3 es NOT EDTSSALO_HEAP (ZREF (SCR_SIZE), NEW_ADDR)) 
§ BE 
; 
5 


ae 


6 
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NEW SCRETR = .EDTSSA.FST AVLN: 
EDTS A_FST_AVLN = .NEW_SCRPTR CSCR_NXT_LINEJ; 


‘ EDIT_CODE = SCR_EDIT_INSLN; 


i If the screen information structure is empty, then initialize 
! the screen pointers. Set up the first pointer as E08 if the 
current Line is at the end of the buffer. 


if (,EDTSSA_FST_SCRPTR EQL 0) 
HEN 


14 
! Perform the insert above the given SCRPTR. If that SCRPTR is 
zero, then insert the new Line below the last screen pointer. 


IF (.SCRPTR EQLA 0) 
THEN 


BEGIN 
NEW_SCRPTR FSCR_NKT LINE = 0; 

S -EDTSSA_LS 
EDTSSA_LST_SCRPTR CSCR_NXT_LINE] = <NEW- 
ss EDTSSA-LST-SCRPTR = .NEW_SCRPTR; 


i If we have exceeded our maximum screen Line insert count, then 
remove the top screen record. 


<=- 


FUN OOONA NES WIN § O OONOA UNE WIN OO ONOUE WO 0O@-= 


EDT$$G_MEM_CNT GEQ MAX_SCREEN_LINES) AND ! 
$S$A_FST_SCRPTR NEQA .NEW_SCRPTR)) DO 


BEGIN 
'¢ 


i Check for Golet ing the cursor Line from the data base. If this happens we will 
have to rebuild the screen data base. 


wn - O0OnNou 


IF (.EDTSSA_CSR_SCRPTR EQLA .EDTSSA_FST_SCRPTR) 


BEGIN 

EDTSSA CSR_SCRPTR = 0; 

mOVEL IRE (EDTSSL_LNO_EMPTY, EDTS$$L_CUR_SCRLN); 
Had G_SCR_REBUICD ="1; 
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gbTsssc. LNDEL (.EDTSSA_FST_SCRPTR); 


UNTIL (C,EDTSSA_FST_SCRPTR CSCR_ LINE jon), EQL 0) OR 
(.€0T SA_FST_SCRPTR EQLA .NEW_SCRPTR) 


VIO SOIEAE 


9 END; 
4 END 
4 7 ELSE 
4 7 BEGIN 
40 7 PREV_SCRPTR = .SCRPTR CSCR_PRV_LINE); 
74 NEW_SCRPTR FSchpnv tine = PREV_SCRPTR; 
5 46, NEW_SCRPTR LSCR_NXT_LINE SCRPTR 
08 ti IF (.PREV_SCRPTR NEQA 0) 
: i PREV_SCRPTR CSCR_NXT_LINE] = .NEW_SCRPTR 
1 981 
: ; re EDTSSA_FST_SCRPTR = .NEW_SCRPTR; 
1 i If we have exceeded our maximum screen Line insert count, then 
: 5 remove the bottom screen record. 
1 . 
1 ik WHILE ((. EDTS$G_MEM_CNT GEQ MAX_SCREEN_LINES) AND 
1 989 (.EDTSSA_LST_SCRPTR NEQA .NEW_SCRP PTR R)) DO 
BEGIN 
dO 


BEGIN 


+ 


C 
have to rebuild the screen data base. 
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Fes’ -EDTSSA_CSR_SCRPTR EQLA .EDTSSA_LST_SCRPTR) 


V4.0- 
INS .BL 


heck for Soler ing the cursor Line from the data base. If this happens we will 
€ 


£ 
' 
' 
‘ 
‘ 
' 
o 
' 
7 
' 
' 
1 
1001 1 
1002 1 EDTSSA, CSR_SCRPTR = 
1 1 E CEDTS$SL._LNO “ery, EDTS$$L_CUR_SCRLN); 
1 cD zie sche REBUICD = 
1 
1 EDTSSSC_LNDEL (.EDTS$SA_LST_SCRPTR); 
1 3 UNTIL ((.EDTSS$A_FST_AVLN CSCR_LINE_IDX] EQL 0) OR 
440 10 (.EDTSSA_LST_SCRPTR EQLA <NEW_SCRPTR)); 
44 1 I END; 
tt 1014 END 
445 ., 1015 
44 1 1g SCRPTR CSCR_PRV_LINE] = .NEW_SCRPTR; 
44 101 END; 
44 1 18 
44 101 END; 


74 
I; 
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END; 

'¢ 
Initialize the fields of the screen information block for repaint. 
: NEW_SCRPTR SCR_EDIT FLAGS) = .EDIT_CODE; 

NEW-SCRPTR [SCR-LINE-IDX) = .INDX; 

NEW-SCRPTR SCR-EDIT“AINPOS} 2 iF 

NEW-SCRPTR [SCR-EDIT-MAXPOS) = 255; 

NEW-SCRPTR CSCR-CHR_FROM) = .LEFT; 


‘+ 
Compute the right character position of the current Line. 
IF ( NOT .EDTS$$G_TRUN) 
THEN 
BEGIN 


LOCAL 
WIDTH; 


IF (.INDX EQL 0) 
THEN 


BEGIN 
WIDTH = .EDTS$G_TI_WID + .EDTS$G_SHF; 
COL = 0; 
END 

IN 
WIDTH = .E 


DT 
COL = .EDTSS 


$$G_TI_WID + .EDTS$G_SHF; 
@ SRE 32; - 
END; 


S$ 
'¢ 
: We must compute the width of each character to see how many will fit. 
; LEN = .REC_LEN = .LEFT; 
TXT = CHSPCUS (.REC_ADOR, .LEFT); 
RIGHT = .LEFT = 1; 
CHAR = CHSRCHAR_A (TXT); 
WHIL ae GTR 0) AND ((.COL + EDTSSFMT_CHWID (.CHAR, .COL)) LEQ .WIDTH)) DO 
N 


cute (.CHAR, .COL); 


IF (.LEN GTR 0) 
BEGIN 
'¢ 
: We need another Line. 
NEED_ANOTHER_LINE = 1; 


eef 


F 6 
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LEFT = .RIGHT + 1; 


ELSE 
_ BEGIN 
We don't need another Line. 


NEED_ANOTHER_LINE = 0; 
RIGHT z pegret : 


END 
ELSE 
BEGIN 


tH ts 4 8 


RU OO OOS Ose  OO9 MOA UO Dae 


'¢ 
} Truncate mode, we never need more than one Line. 


NEED ANOTHERLINE = 0; 
255; 


3 10 3 $ 
; 1¢ : 
5 108 | 3 
8 108 ; 
3 108 : 
3 108 3 
r 108 : 
3 108 H 
5 1086 4&4 : 
3 135 4 ; 
: #).}. 3 
3 108 : 3 
$ 1090 4 $ 
3 1091 4 3 
: 1092 4 3 
; 109 4 : 
; 108 RIGHT = 
3 1398 END; s 
; ip: : 
; 1098 3 NEW_SCRPTR CSCR_CHR_TO) = .RIGHT; ; 
3 095 ! 3 
; i : If there is no current screen pointer, make this Line the current Line. : 
; 11 ; 
; i ¢ IF (.EDTSSA_CUR_SCRPTR EQLA 0) THEN EDTS$A_CUR_SCRPTR = .NEW_SCRPTR; : 
; 1105 INDX = .INDX + 1; F 
; 1} END; : 
; i IF ((.EDTSSA_WK_LN EQLA EDTS$$Z_EOB_LN) AND (.SCRPTR EQLA 0)) THEN EDTSS$A_EOB_SCRPTR = .NEW_SCRPTR; ; 
: 540 1110 2 !¢ ; 
; rh i) : Make sure the counter agrees with the data base. : 
; 54 Wie 5 ; 
: 566 1114 IF 0 é 
3 45 1115 THEN ; 
H 4 1318 BEGIN : 
3 4 111 3 
2: ett sao : 
; 30 1120 SCRPTR1 : REF SCREEN_LINE, : 
; H i SCRPTR2 : REF SCREEN_LINE; : 
3 35 1158 COUNT = 0; 
3 32 1124 SCRPTR1 = .EDTSSA_FST_SCRPTR; é 
: 35 i 5 ASSERT (.SCRPTR1 CSCRTPRV_LINE) EQL 0); : 
; 35 1159 WHILE (.SCRPTR1 NEQA 0) DO , 
; 28 11 3 4 BEGIN 

; 5 11 & COUNT = .COUNT + 1; 

; 560 11 4 SCRPTR2 = .SCRPTRI; 

: 3) 1 2 SCRPTR1 = .SCRPTR1 CSCR_NXT_LINE); 

; 8 11 : 5 IF (.SCRPTR1 NEQA 0) 


ERTCRL RNC UINS 


43 

DTSSSC_ 

11 THEN 

11 BEGIN 

1 seteat (.SCRPTR1 CSCR_PRV b INE? Fe Nee 
1 ASSERT (.SCRPTR1 NEQA” .EDTSSA_FS Peat ); 

1} 4 END; 

He _ 

114 ASSERT (. § «SERIA EQLA .EDTSSA_LST SCRPTR); 

114 ASSERT QL .EDTS$$G MER_CNT); 

1362 END; 

114 

1138 '¢ 

136 ; Return the number of Lines produced. 

1309 RETURN (.INDX); 

1150 END; ! of routine EDTSSSC_LNINS 


-TITLE EDTSSCRNEWINS EDTSSCRNEWINS - insert a Line on 
he screen 
-IDENT \Vv04-000\ 


-EXTRN EDTSSFMT_MSG, EDTSSALO_HEAP 


“EXTRN EDTSSFMT-CHWID, EDTS$sC LNDEL 
«EXTRN EDTS$G_MEM_CNT eT $A pst AVLN 
“EXTRN EDTSSA~WK_CN, EDTss 

SEXTRN EDTSSA~CUR_BUF, EDT $h_£05 SCRPTR 
ZEXTRN EDTSSA_FST-SCRPTR 

“EXTRN EDTS$SS$A-LST~SCRPTR 

-EXTRN EDTSSA~CUR~ SCRPTR 

SEXTRN EDTS$G_TRUN, EDTS$G_SHF 

“EXTRN EDTS$G_T1_ WiD, EDTSSA_CSR_SCRPTR 
“EXTRN EDTSSL—CUR_SCALN 

“EXTRN EDTSSL~LNO- EMPTY 

“EXTRN EDT$$G~SCR-RE BUILD 

“EXTRN EDTS_IRSMEM, EDTSSINTER_ERR 


-PSECT _EDTSCODE.NOWRT, SHR, PIC,2 


FREGEMENINS ~Mmeac*,"Eneonytneserenn, EHO QLREAE  YMGTE aUdegcdz as. go749 ond 


OFFC 00000 eENTRY €E reset L Bins, Save R2,R3,R4,R5,R6,R7,.R8,.- =; 0680 
R9.R10,R11 3 
SE SUBL2 #36, F 
14 AE mov #1, ‘NEED_ANOTHER_LINE ; 8 
5 MOVL §SCRPTR, R11 : 08 
0 BLBS NEED. ANOTHER_LINE, 3$ : 08 
OOOOOOFF 8F CMPL INDX. #255 ; 
BGTR 3 
TSTL R11 ; 0832 
BEQL ; 
58 mov (R11), NEW_SCRPTR 3 837 
1F OD As BBC #2, 13(NEW_SCRPTR), 7$ > 0841 
CLRL - FOUND_EARLTEST ; B48 
14 BLBS § FOUNDTEARLIEST, 6$ > 085 


<m 
pa 


H 6 
VOL=000"  EDISSSCALNINS "= Insert a Line onthe screen le-Sep-iobe Qoigesde — EEDTsSRCISERNEUINS-BL1: Page 


v4 


Sa 8 p MOVL (NEW_SCRPTR), PREV_SCRPTR : 52 ; 
A BEQL ; + 085 : 
05 OD AA 2 BBC 8 13¢PREY_SCRPTR) 5$ : ; 
58 A ; ROVL PREV SCRP R> NEW_SCRPTR : : 
50 oj p ‘ 5$ BOVL #1, FOUND_EARLIEST : os : 
04 AE 1 p 47 6: MOVL #1, EDIT_CODE ; » : 
48 BRB 8S : 841 : 
D 4D 7$: CLRL -NEW_SCRPTR + 0879 ; 
p 4F 8S: ist N WSCRPTR + 0881 : 
6 D 33 INCL EDTS$$G_MEM_CNT + 0884 F 
so Sgeuuee HB 8 BRIBES, a fgg) | 
20 AE OOF PUSHAB NEW_ pp + 0894 ; 
20 AE OE 00 VL #147 32(SP) : ; 
20 AE OF PUSHAB 32(§ : ; 
000000006 99 4 g CALLS H , EDTSSALO_HEAP : : 
000000006 00 1D 7% MOVL #1, EDTSSG_ SCR_REBUILD : 0897 ; 
000000006 8F DD i PUSHL #EDTS$_INSMEM : 0898 ; 
000000006 00 1 re a CALLS #1, EDTSSFMT_MSG : ; 
O1F2 BA BRW + 0899 ; 
58 20 AE 00 0008D 98: MOVL NEW_ADOR, NEW_SCRPTR + 090 3 
06 11 0091 BRB 11$ : 08 ; 
58 DO 00093 10$: MOVL RO, NEW_SCRPTR : 09 ; 
000000006 00 04 AB D 96 MOVL 4(NEW SCRPTR), EDTSS$A_FST_AVLN ; 090 : 
04 AE 8 D 118: MOVL #2 gbiT cop : 991 3 
000000006 ! p OA Ist ots A_FST_SCRPTR : 091 : 
900000006 99 2 DO OOOAA MOVL NEW_SCRPTR, EDTSS$A_FST_SCRPTR + 0920 : 
0000006 00 p 0B} MOVL NEW SCRPTR, EDT$SA-LST-SCRPTR + 0921 ; 
68 7C CLRO (WEQ_SCRPTR) : 09 3 ; 
00FO 31 OOOBA 128: BRW 23 : 091 : 
3 D BO 13$:  TSTL R11 : 0932 
1 BF BNEG =«:«*17$ ; 
04 AB OD C1 CLRL 4 (NEW SCRPTR) + 0935 
50 000000006 D C4 MOVL EDTS$$AK_LST_SCRPTR, RO + 0936 
6 D CB MOVL RO, (NEW SCRPTR) : 
04 A D ¢ MOVL NEW _SCRPTR, 4(RO) : 0937 
900000006 0 D D MOVL NEW SCRPTR. EDTS$A LST_SCRPTR : 0938 
00006E  8F 000000006 00 p 09 14$: CPL FOTS G_MEM/CNT, #1T + 0944 
58 000000006 8 E6 CPL EDISSA_FST_SCRPTR, NEW_SCRPTR + 0945 
59 990000006 D EF MOVL EDTSSA_FST_SCRPTR, R9 > 0955 
9 G D} F6 15$: cAPL EDISSALCSR-SCRPTR, ; 
000000006 rH FF CLRL_ EDTSS$A GSR_SCRPIR > 095 
000000006 00 900000006 : 8 105 MOVC3 a6, EDTSSL“LNO_EMPTY, EDTSSL_CUR_SCRLN > 095 
G DO 001 | VL = #1, EDT$$SG~SCRTREBUILD ; 360 
000000006 7 PO BOTTA ee EATS «i. EDTS$SC_LNDEL _™ 
98 000000996 Q p 121 MOVL DfSSALFSt_SCRPTR, RI > 0965 
A 128 TSTB (R9) ; 
AC 18 00128 BEQL 4$ ; 


Bui: 
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NEWINS 


YasT SRedsen 


“Seo-1904 0:38:16 


i 


insert a Line on the screen 
on the screen 


- insert a Line 


cages ESTEEM 


_SCRPTR 
SCRPTR) 


TR) 


#1T0 
» RY 
RPTR, RO 


CRPTR 
REBUILD 
] 


2 
4 
a 
Yv 
“” 

a 
i. 4 
2 
vu 

4 
J 
cod 
> 
ran 
a 
ws 

7 
> 
(= 
a 
= 
[ve} 
3 


stNEW SCRPTR) 
EDTSSA_FST 
RPTR 

CR 


DTS$SC_LNDEL 
AVLN, RO 


PREV 
RPTR 

CRPTR, 

G_MEM. CNT, 

A_FST_ 
$6/TI_WID, WIDTH 
RIGHT 
AR 


S$SA_LST_SCRPTR, NEW_SCRPTR 
) 
tu 


$SA_LST_SCRPTR, NEW_SCRPTR 


s§ 
$$ 
0) 
CHAR 
ae EDTSSFMT 
i 
2 
LEN 


MOVAB 


198: 
218: 


On Dekh CV - OVNO EO 
BLVVC CO OWWwuwuwue 


KN OOMMOK— ORK OK MOK WITDO OOM We  QOCCOCRDO RK NST — WWM Www tO 
anr— OF- Or Or OO OF OO ON OOOO KOK KK OOO OO WOVOK OKO 


OTND < LODODOWOO OOP O0 KO -OOVOE —-Dww rh COO WMWNOFR 
MNVLOUWMNOMOMOMO SF OO- COOMOS <€ CLOOaINeEeONoonmacoacoacm 


58 000000006 

33 000000006 

000000006 

38 woseeegse 
0 

58 000000006 


S000 BF 000000006 


000000006 
52 000000006 


oc 


000000006 00 i pone 98 


_CHWID 


L. 
b 


M000 DBO 


Se eae 


uth uth seth seeth, seul, meth, seth. see, sent seh sth, eth, meth eth seh seh sah seh eth eh see sa se th sath meet sae eh peed peed. ceed. meth seh eh seh eth. cet. seth. seh seh eh seat meet geet eth eh ed nh gd od gd J 


000000006 33 


cages ESTER 


G 00 ™ | 
e000000R6 % 
Oc (AE 
A 
“os ; 
5 01 Ag 
0 
14 AE 
5 FF F 
OA 
000000006 : 
000000006 00 8 
18 80 
50 000000006 
50 000000006 : 
000000006 98 4 
18 AE 
50 
3; Routine Size: 642 bytes, Routine Base: _EDTSCODE 
; 581 1151 1 
; 582 1152 1 !<BLF/PAGE> 


- insert a Line on the screen 1b-sep- 
- insert a Line on the screen 


0209 
fm 


ooo ret re + owt oy 4 
Sonu an > 


™ 
so 
wr 


ovoo 

oP 

oo 
—~ 
~_n 
Ww 
w 
ow 


+ 
s 
o 
o 


PB 9op88 

f A 

9 27$: 
ay 28$: 
6 
0 
0 
0 


ww 
_—_- & 
ow 
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AX-11 8 


iss-32 V4.0- th 
EDT.SRCJSCRNEWINS. 


INS.6LI; 


CHA 
#2, TED TSSFMT_CHWID 
RO, COL 

§ 

N 


NEED eANOTHER. LINE 
ui Veet 
-ANOTHER, LINE 


NEW SCRPTR) 
, CUR_SCRPTR 


CRPTR, EDTSSA_CUR_SCRPTR 


on A-~r i 


$$2_E0B_LN, RO 
$$A_WK_CN, RO 


SCRPTR, EDTS$A_EOB_SCRPTR 
NDR, RO 


eef 


0 

Lexemes/CPU-Min: 8956 
"Y Used: 229 pages 
Compilation Complete 


K 6 
EDTSSCRNEWINS EDTSSCRNEWINS - insert a Line on the screen 16-Sep-1984 01:38:16 AX-11 Bliss-32 V4.0-74 Pa 1 
704-000 EDTSESC ENING - insert a Line on the screen 10780871884 ee LEbT SRCISCRNEVINS .OL1: ” (aS 
; 38s 1186 ! END ! of module EDTSSCRNEWINS : 
; 1188 ELUDOM 
; PSECT SUMMARY : 
; Name Bytes Attributes 
; EDTSCODE 642 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) : 
: Library Statistics ; 
; eccccece Symbols -------- Pages Processing ; 
; File Total Loaded Percent Mapped Time : 
: _$255$DUA28: (EDT. SRCJEDT.L32;1 377 54 14 40 00:00.2. ; 
3 “Fee a TD UASBSEEDT SReaPECTS i S251 2 1 50 7 00:00.1 : 
; COMMAND QUALIFIERS 3 
: eet eee TEL Re EUE TEAL OPT SAEED AUDTRACERACK AA, ESM8 158 s SCRNEMENG /CR SOND LE SCRNE NING MSRC$:SCRNEWINS .BLI/UPDATE=(ENHS:S ; 
Size: 642 code + 0 data bytes : 
Run Time: 234.1 : 
Elapsed Time: J : 
Lines/CPU Min: 0 2 
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